rm(list=ls())

##############################################################################
# APPENDIX REPLICATION
##############################################################################

# setwd to replication file
setwd("/Users/cbj4/Desktop/replication")

###########################
# INSTALL + LOAD PACKAGES #
###########################
install.packages(c("texreg", "ggplot2", "glm.predict", "mice", "MASS", 
                   "maps", "tidyverse", "countrycode", "AER", "kableExtra")) 
lapply(c("texreg", "ggplot2", "glm.predict", "mice", "MASS", 
         "maps", "tidyverse", "countrycode", "AER", "kableExtra"), require, character.only = TRUE)

###############
# RUN SCRIPTS #
###############

source("append_scripts/appendB1_fig1.R")
source("append_scripts/appendB1_tab1.R")
source("append_scripts/appendB2_tab1.R")
source("append_scripts/appendB3_tab1.R")
source("append_scripts/appendB3_tab2.R")
source("append_scripts/appendB3_tab3.R")
source("append_scripts/appendB4_tab1.R")
source("append_scripts/appendB5_tab1.R")
source("append_scripts/appendB6_tab1.R")
source("append_scripts/appendB7_tab1.R")
